global direction,pillarEat,trollDead,hortaDead,chase
global blasting,causeOfDeath,blastDam,holeDam
if chase<>0 then
if direction<>"north" and direction<>"east" and direction<>"back" then
put "horta4" into causeOfDeath
visual wipe up slowly to gray
go to card id 3409
exit move
end if
end if
if direction = "north" then
if blastDam then
go to card id 26754
exit move
end if
if holeDam then
go to card id 27307
exit move
end if
go to card id 26200
exit move
end if
if direction = "south" or direction = "rear" then
go to card id 19858
exit move
end if
if direction = "east" then
if pillarEat then
go card id 23127
exit move
end if
go card id 22580
exit move
end if
if direction = "west" then
if trollDead then
go to card id 24153
exit move
end if
go to card id 23588
exit move
end if
if direction = "down" then
answer "Do you really want to climb into the pit?" with "yes"or"no"
if it is "no" then exit move
if hortaDead then
go to card id 21738
exit move
else
put "horta1" into causeOfDeath
go to card id 3409
exit move
end if
end if
pass move
end move
on closeCard
set the cursor to 4
put "" into field 3
show card button "hortaCover"
end closeCard
on take
global object,carried
-- remember to update carried if you do not pass take
pass take
end take
on drop
global object,dropRoom,carried
answer "Drop object in this room, or into the pit?" with "pit" or "room"
if it="pit" then put "21738" into dropRoom
-- remember to update carried if you do not pass drop
pass drop
end drop
on use
global object,carried
-- update carried if use results in loss of object
pass use
end use
on hortaChase
global chase
put "There is an angry Horta in the room!" into field 3
hide card button hortaCover
wait 30 ticks
if chase=1 then show card field hortaChase
put 2 into chase
end hortaChase
-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp
-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=87 top=231 right=267 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp
-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=136 top=89 right=125 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp
-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=7 top=164 right=200 bottom=41
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp
-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=156 top=125 right=161 bottom=190
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp
-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=125 right=161 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp
-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=125 right=161 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=66 right=162 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID
if examFlag then
put "a tunnel leading east" into field 3
put false into examFlag
else
put "east" into direction
send move to card id cardID
end if
end mouseUp
-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=43 right=91 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID
if examFlag then
put "a tunnel leading north" into field 3
put false into examFlag
else
put "north" into direction
send move to card id cardID
end if
end mouseUp
-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=3 top=66 right=150 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID
if examFlag then
put "a stone stairway leading west (and downward)." into field 3
put false into examFlag
else
put "west" into direction
send move to card id cardID
end if
end mouseUp
-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=206 right=229 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID
if examFlag then
put "a very dark climbable pit" into field 3
put false into examFlag
else
put false into takeFlag
put "down" into direction
send move to card id cardID
end if
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=183 top=186 right=253 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID
if takeFlag then
put "Don't take that. You don't know where its been! " into field 3
put "Besides, it's stuck to the floor by some strange goo" after field 3
put " (dissolved flesh, perhaps?)." after field 3
put false into takeFlag
else
put "A skeleton. Quite dead." into field 3
put false into examFlag
end if
end mouseUp
-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=41 top=122 right=176 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID
if takeFlag then
put "Don't take that. You don't know where its been! " into field 3
put "Besides, it's stuck to the floor by some strange goo" after field 3
put " (dissolved flesh, perhaps?)." after field 3
put false into takeFlag
else
put "A skeleton. Quite dead." into field 3
put false into examFlag
end if
end mouseUp
-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=230 right=267 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID
if takeFlag then
put "Don't take that. You don't know where its been! " into field 3
put "Besides, it's stuck to the floor by some strange goo" after field 3
put " (dissolved flesh, perhaps?)." after field 3
put false into takeFlag
else
put "A skeleton. Quite dead." into field 3
put false into examFlag
end if
end mouseUp
-- part 43 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=85 top=199 right=225 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaCover
-- part 44 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaChase
----- HyperTalk script -----
on mouseUp
hide card field hortaChase
end mouseUp
-- part contents for background part 25
----- text -----
Skeleton Room
(looking north)
-- part contents for background part 24
----- text -----
The bones of previous adventurers are strewn about the room. Tunnels lead north, south, east, and west. A dark pit is in the southwest corner of the room. Someone has scrawled a message in blood above the pit which reads
"Beware the Horta: Don't go down!".
-- part contents for card part 44
----- text -----
Warning!
It's amazing how fast thoughts can run through your mind in a moment of deadly danger -- so you'd better read carefully, because this is one of those moments:
When you enter the skeleton room a powerful acrid odor stings your nose and a blood-curdling hiss assaults your ears. The source of both is a large blob-like creature near the mouth of the pit. The creature is about six feet in diameter and has a dark mottled surface. It turns slightly with a rapid rippling motion of its tread, then bunches up its body like a coiled spring, as if about to lunge at you.
Perhaps it is some primal sense, but it is obvious to you that this creature is violently angry and is about to attack you. And perhaps it is the way the rock floor sizzles under the creature's tread, but it is obvious to you that it would not be a good idea to allow it to catch you.
I'd advise you to flee. It depends on how fast this creature can move, of course, but you could almost certainly make it back out the east door, and possibly make it out the north door. Your chances of reaching the west or south tunnels appear slim.
.iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_3186_render.bmp){kind=link}
.iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_31944_render.bmp){kind=link}